#! /usr/bin/perl
use warnings FATAL => 'all';
use strict;

foreach my $i (1 .. 10) {
    &marine;
}
my $n;
sub marine {
    $n += 1;
    print "Hello, sailor number $n!\n";
}

